﻿<!-- #include file="mymin.asp" -->
<%
Call Head()
If key<>0 Then Call error("<card title=""警告""><p>权限不足！")

w "<card title='分类修改结果'><p>"

dim class1,id,rs
class1=request("class")
id=request.querystring("id")

if class1="" then
	w "分类名称不能为空!<br/><a href='editwzclass.asp?id="&id&"&amp;sid="&sid&"'>返回修改</a>"
elseif id="" then
	w "类别ID出错!"
else
	set rs=server.createobject("adodb.recordset")
	rs.open "select class from 74hu_list where classid="&id,myconn,1,3
	rs("class")=class1
	rs.update
	rs.close
	set rs=nothing
	w "修改成功!"
end if
%>
<br/>----------<br/>
<a href='wzclass.asp?sid=<%=sid%>'>[文章分类]</a><%Call Last%>
